home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / wheels2.arc / TITLES.LIB < prev    next >
Encoding:
Text File  |  1985-06-28  |  1022 b   |  28 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.
  4.  
  5.     This program makes handy large-letter titles by using the ROM
  6.     patterns looked up by GRFXTABL.LIB, which naturally must be
  7.     INCLUDEd in any program that INCLUDEs this file.
  8.  
  9. }
  10. type
  11.   title_type = string[10];
  12.  
  13. {@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  14. procedure MakeTitle(title : title_type; Starting_row : byte);
  15. var
  16.   N, lenth, starting_col, this_col : byte;
  17. begin
  18.   lenth := length(title);
  19.   starting_col := ((80 - 8*lenth) div 2) and $00FF;
  20.   for N := 1 to lenth do
  21.     begin
  22.       this_col := starting_col + 8*(N-1) +1;
  23.       window(this_col,starting_row,this_col+7,starting_row+8);
  24.       ShowEntry(table[ord(title[N])]);
  25.     end;
  26.   window(1,1,80,25);
  27. end;
  28. {@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}